Option Explicit
Sub G_Sample002()
    Dim myShp As Shape
    Dim myStr As String
    Dim mySht As Worksheet
    Set mySht = ActiveSheet				'N
    myStr = "NewShape"					'wW
    With mySht.Shapes
        On Error Resume Next
        Set myShp = .Item(myStr)
        On Error GoTo 0
        If myShp Is Nothing Then
            'AutoShapes@
            .AddShape(Type:=msoShapeRectangle, Left:=100, _
            Top:=100, Width:=100, Height:=100).Name = myStr
        Else
            MsgBox "ҫwW٤wsb"
        End If
    End With
    Set myShp = Nothing					'
    Set mySht = Nothing
End Sub
